open(BUFF,"eQTL_results_R_cis.txt");
$line=<BUFF>;
$line=<BUFF>;
@a = split("\t",$line);
$k1 = $a[3];
$i =1;
while($line=<BUFF>)
{
	$i++;
	chomp($line);
	@a = split("\t",$line);
	if($a[3] < $k1)
	{
		die "line $i\n";
	} 
	$k1 = $a[3];
}
